(load "lisp-to-vm.lisp")
;(load "virtualmachine.lisp")

(print (lisp-to-vm '(fibo 12) nil 0))

(make-vm 'vm 1000 ())
(vm-loader2 'vm 1000 (lisp-to-vm '(fibo 12) nil 0))
(run-vm 'vm 1000)

(print "Fibo 12 =" )
(print (lire-reg 'vm 'r0))